*&---------------------------------------------------------------------*
*& Report  ZDEMO_OO_ALV_TOP_OF_PAGE
*&
*&---------------------------------------------------------------------*

REPORT  ZDEMO_OO_ALV_TOP_OF_PAGE.

DATA : O_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
       O_SPLITTER  TYPE REF TO CL_GUI_SPLITTER_CONTAINER,
       O_GRID      TYPE REF TO CL_GUI_ALV_GRID,
       O_HEADER    TYPE REF TO CL_GUI_CONTAINER,
       O_MAIN      TYPE REF TO CL_GUI_CONTAINER,
       IT_EKKO     TYPE TABLE OF EKKO,
       O_DOCUMENT  TYPE REF TO CL_DD_DOCUMENT.

*Define Event Handler Class
CLASS LCL_HANDLER DEFINITION.
    PUBLIC SECTION.
      METHODS : HANDLE_TOP_OF_PAGE FOR EVENT TOP_OF_PAGE
                      OF CL_GUI_ALV_GRID.
ENDCLASS.

*Implement
CLASS LCL_HANDLER IMPLEMENTATION.
    METHOD HANDLE_TOP_OF_PAGE.
        PERFORM PRINT_HEADER.
    ENDMETHOD .
endclass.

START-OF-SELECTION.
  CALL SCREEN 9000.

*&---------------------------------------------------------------------*
*&      Module  SPLIT_CONTAINER_9000  OUTPUT
*&---------------------------------------------------------------------*
module SPLIT_CONTAINER_9000 output.
CREATE OBJECT o_container
  EXPORTING
*    parent                      =
    container_name              = 'C1'
*    style                       =
*    lifetime                    = lifetime_default
*    repid                       =
*    dynnr                       =
*    no_autodef_progid_dynnr     =
*  EXCEPTIONS
*    cntl_error                  = 1
*    cntl_system_error           = 2
*    create_error                = 3
*    lifetime_error              = 4
*    lifetime_dynpro_dynpro_link = 5
*    others                      = 6
    .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

*Split
CREATE OBJECT o_splitter
  EXPORTING
*    link_dynnr        =
*    link_repid        =
*    shellstyle        =
*    left              =
*    top               =
*    width             =
*    height            =
*    metric            = cntl_metric_dynpro
*    align             = 15
    parent            = o_container
    rows              =  2
    columns           =  1
*    no_autodef_progid_dynnr =
*    name              =
*  EXCEPTIONS
*    cntl_error        = 1
*    cntl_system_error = 2
*    others            = 3
    .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

CALL METHOD o_splitter->get_container
  EXPORTING
    row       = 1
    column    = 1
  receiving
    container = O_HEADER
    .

CALL METHOD o_splitter->get_container
  EXPORTING
    row       = 2
    column    = 1
  receiving
    container = O_MAIN
    .

CALL METHOD o_splitter->set_row_height
  EXPORTING
    id                = 1  "Row1
    height            = 25
*  IMPORTING
*    result            =
*  EXCEPTIONS
*    cntl_error        = 1
*    cntl_system_error = 2
*    others            = 3
        .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

endmodule.                 " SPLIT_CONTAINER_9000  OUTPUT

*&---------------------------------------------------------------------*
*&      Module  DISPLAY_ALV_9000  OUTPUT
*&---------------------------------------------------------------------*
module DISPLAY_ALV_9000 output.
CREATE OBJECT o_grid
  EXPORTING
*    i_shellstyle      = 0
*    i_lifetime        =
    i_parent          = O_MAIN
*    i_appl_events     = space
*    i_parentdbg       =
*    i_applogparent    =
*    i_graphicsparent  =
*    i_name            =
*    i_fcat_complete   = space
*  EXCEPTIONS
*    error_cntl_create = 1
*    error_cntl_init   = 2
*    error_cntl_link   = 3
*    error_dp_create   = 4
*    others            = 5
    .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
SELECT * INTO TABLE IT_EKKO FROM EKKO UP TO 15 ROWS.

*Event Handler Method Registration
DATA O_HANDLER TYPE REF TO LCL_HANDLER.
  CREATE OBJECT  O_HANDLER.

*For Event & Method
  SET HANDLER O_HANDLER->HANDLE_TOP_OF_PAGE FOR O_GRID.

CREATE OBJECT o_document .

CALL METHOD o_grid->set_table_for_first_display
  EXPORTING
*    i_buffer_active               =
*    i_bypassing_buffer            =
*    i_consistency_check           =
    i_structure_name              = 'EKKO'
*    is_variant                    =
*    i_save                        =
*    i_default                     = 'X'
*    is_layout                     =
*    is_print                      =
*    it_special_groups             =
*    it_toolbar_excluding          =
*    it_hyperlink                  =
*    it_alv_graphics               =
*    it_except_qinfo               =
*    ir_salv_adapter               =
  CHANGING
    it_outtab                     = IT_EKKO
*    it_fieldcatalog               =
*    it_sort                       =
*    it_filter                     =
*  EXCEPTIONS
*    invalid_parameter_combination = 1
*    program_error                 = 2
*    too_many_lines                = 3
*    others                        = 4
        .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

*For Each List Processing Events
CALL METHOD o_grid->list_processing_events
  EXPORTING
    i_event_name      = 'TOP_OF_PAGE'
    i_dyndoc_id       = O_DOCUMENT

*    is_subtottxt_info =
*    ip_subtot_line    =
*    i_table_index     =
*  CHANGING
*    c_subtottxt       =
    .


   endmodule.                 " DISPLAY_ALV_9000  OUTPUT

*&---------------------------------------------------------------------*
*&      Module  STATUS_9000  OUTPUT
*&---------------------------------------------------------------------*
module STATUS_9000 output.
  SET PF-STATUS 'ZSTATUS'.
*  SET TITLEBAR 'xxx'.

endmodule.                 " STATUS_9000  OUTPUT

*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9000  INPUT
*&---------------------------------------------------------------------*
module USER_COMMAND_9000 input.
IF SY-UCOMM = 'BACK'.
    LEAVE TO SCREEN 0.
ENDIF.
endmodule.                 " USER_COMMAND_9000  INPUT

*&---------------------------------------------------------------------*
*&      Form  PRINT_HEADER
*&---------------------------------------------------------------------*
form PRINT_HEADER .

 CALL METHOD o_document->add_picture
   EXPORTING
     picture_id       = 'ENJOYSAP_LOGO'
*     width            =
*     alternative_text =
*     tabindex         =
     .

CALL METHOD o_document->add_gap
  EXPORTING
    width      = 50
*    width_like =
    .
CALL METHOD o_document->add_text
  EXPORTING
    text          = 'List Of POs'
*    text_table    =
*    fix_lines     =
*    sap_style     =
*    sap_color     =
*    sap_fontsize  =
*    sap_fontstyle =
*    sap_emphasis  =
*    style_class   =
*  CHANGING
*    document      =
    .
CALL METHOD o_document->add_gap
  EXPORTING
    width      = 15
*    width_like =
    .
 CALL METHOD o_document->add_picture
   EXPORTING
     picture_id       = 'ALV_CLOUD'
*     width            =
*     alternative_text =
*     tabindex         =
     .
 CALL METHOD o_document->display_document
   EXPORTING
*     reuse_control      =
*     reuse_registration =
*     container          =
     parent             =  O_HEADER
*   EXCEPTIONS
*     html_display_error = 1
*     others             = 2
         .
 IF sy-subrc <> 0.
*  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.

endform.                    " PRINT_HEADER